 Circle ()    ( Graph)
 -------------------------------------
   , 
 (X, Y)  .

 :
 Procedure Circle(X, Y : Integer; Radius : Word);

 :
Real, Protected

 :
   ,
   SetColor  
 Radius ( ),   
 (X, Y)  . 
   
,   Circle, Arc,
 PieSlice.

 :
    .

  :
 Arc
 Ellipse
 GetArcCoords
 GetAspectRatio
 PieSlice

 :
 Circle.PAS


{Circle.PAS}
-------------
{     Circle }

Uses Graph;

Var Gd, Gm : Integer;
    Radius : Integer;
Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, 'C:\BP\BGI'); {   BGI  }
 If GraphResult<>grOk Then Halt(1);
 For Radius:=1 To 5 Do Circle(100, 100, Radius * 10);
 ReadLn;
 CloseGraph;
End.
